home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / p063b9s.zip / UTIL / MISC.PAS < prev    next >
Pascal/Delphi Source File  |  1993-01-03  |  670b  |  38 lines
  1. UNIT Misc;
  2.  
  3. INTERFACE
  4.  
  5. USES PoPTypes;
  6.  
  7. FUNCTION GetPopTask: S2;
  8.  
  9. IMPLEMENTATION
  10.  
  11. USES Dos, OpString;
  12.  
  13.   FUNCTION GetPopTask: S2;
  14.   VAR
  15.     s     : S80;
  16.     Param : S10;
  17.     i     : Byte;
  18.   BEGIN
  19.     GetPoPTask:='';
  20.     s:=GetEnv('POPCMDLINE');
  21.     IF ParamCount>0 THEN
  22.       FOR i:=1 TO ParamCount DO
  23.         s:=s+' '+ParamStr(i);
  24.     s:=StUpCase(s);
  25.     IF Length(s)>0 THEN
  26.     BEGIN
  27.       FOR i:=1 TO WordCount(s, [' ']) DO
  28.       BEGIN
  29.         Param:=ExtractWord(i, s, [' ']);
  30.         IF (Length(Param)=4) AND (Param[1] IN ['-','/']) AND (Param[2]='T') THEN
  31.           GetPoPTask:=Copy(Param,3,2);
  32.       END;
  33.     END;
  34.   END;
  35.  
  36. END.
  37.  
  38.